home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Arktis Edition
/
ARKTIS Edition Vol. 1 (1994)(ARKTIS)(DE)[!].iso
/
softwareproben
/
databaseprof-demo
/
dbpro2
/
arexx
/
reverse.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-01-31
|
1KB
|
30 lines
/*****************************************************************************
* Beispielskript zur Umdehren eines Feldinhaltes ("Meier" => "reieM") *
* Genauso könnten auch Inhalte von einem Feld in ein anderes kopiert werden *
* *
* 22.08.93, Jörg Richter *
*****************************************************************************/
OPTIONS RESULTS /* Eingabezeihenfolge soll angefordert werden */
ADDRESS DATABASE /* Umschaltung auf AREXX-Port von Database */
LeftTotal /* Zum Dateianfang springen */
weiter = 1 /* Schleifenüberprüfungsvaribale setzen */
DO i = 1 WHILE weiter = 1 /* Bis zum Dateiende */
GETDATA $F2 /* Inhalt des Feldes 2 lesen */
PUTDATA $F2 Reverse(result) /* Rückwärts zurückschreiben */
RIGHTONE /* Vorwärts zum nächsten Datensatz */
IF RC ~= 0 THEN weiter = 0 /* Prüfen, ob Dateiende */
END
LEFTTOTAL /* Zum Dateianfang springen */